object ChildInfo: TChildInfo Left = 177 Top = 127 BorderStyle = bsDialog Caption = 'Child Information' ClientHeight = 350 ClientWidth = 505 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object TabbedNotebook1: TTabbedNotebook Left = 0 Top = 0 Width = 505 Height = 350 Align = alClient TabsPerRow = 4 TabFont.Color = clBlue TabFont.Height = -12 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 object TTabPage Left = 4 Top = 27 Caption = 'Name' object Title: TLabel Left = 8 Top = 288 Width = 281 Height = 27 AutoSize = False Caption = 'Child Information' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Image1: TImage Left = 320 Top = 56 Width = 161 Height = 137 Picture.Data = {} end object Bevel1: TBevel Left = 320 Top = 56 Width = 161 Height = 137 end object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 297 Height = 129 Caption = 'Your Child'#39's Name' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 32 Top = 32 Width = 73 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'First Name:' end object Label2: TLabel Left = 8 Top = 64 Width = 97 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Middle Name:' end object Label3: TLabel Left = 32 Top = 96 Width = 73 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Last Name:' end object FirstName: TLabel Left = 112 Top = 32 Width = 64 Height = 16 Caption = 'FirstName' end object MiddleDB: TDBEdit Left = 288 Top = 56 Width = 9 Height = 24 DataField = 'MiddleName' DataSource = ChildData Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 0 ParentFont = False TabOrder = 0 Visible = False end object LastDB: TDBEdit Left = 288 Top = 88 Width = 9 Height = 24 DataField = 'LastName' DataSource = ChildData Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 0 ParentFont = False TabOrder = 1 Visible = False end object MiddleName: TEdit Left = 112 Top = 56 Width = 169 Height = 24 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object LastName: TEdit Left = 112 Top = 88 Width = 169 Height = 24 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object FirstDB: TDBEdit Left = 288 Top = 24 Width = 9 Height = 24 DataField = 'FirstName' DataSource = ChildData MaxLength = 0 TabOrder = 4 Visible = False end end object GroupBox2: TGroupBox Left = 8 Top = 144 Width = 297 Height = 113 Caption = 'Vital Statistics' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label4: TLabel Left = 8 Top = 40 Width = 97 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Hair Color:' end object Label5: TLabel Left = 32 Top = 72 Width = 73 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Eye Color:' end object HairDB: TDBEdit Left = 288 Top = 32 Width = 9 Height = 24 DataField = 'Hair' DataSource = ChildData Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 0 ParentFont = False TabOrder = 0 Visible = False end object EyesDB: TDBEdit Left = 288 Top = 64 Width = 9 Height = 24 DataField = 'Eyes' DataSource = ChildData Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 0 ParentFont = False TabOrder = 1 Visible = False end object Hair: TEdit Left = 112 Top = 32 Width = 169 Height = 24 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object Eyes: TEdit Left = 112 Top = 64 Width = 169 Height = 24 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end end object HelpBtn: TBitBtn Left = 464 Top = 240 Width = 25 Height = 27 Caption = ' ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = HelpBtnClick Kind = bkHelp Margin = 2 Spacing = -1 end end object TTabPage Left = 4 Top = 27 Caption = 'Birth Information' object Label6: TLabel Left = 8 Top = 288 Width = 281 Height = 27 AutoSize = False Caption = 'Child Information' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object GroupBox4: TGroupBox Left = 8 Top = 1 Width = 377 Height = 256 TabOrder = 0 object TLabel Left = 32 Top = 24 Width = 56 Height = 13 Alignment = taRightJustify Caption = 'Birthdate:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 104 Top = 128 Width = 3 Height = 13 end object Label9: TLabel Left = 264 Top = 16 Width = 4 Height = 19 Caption = '/' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 312 Top = 16 Width = 4 Height = 19 Caption = '/' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 26 Top = 56 Width = 62 Height = 13 Alignment = taRightJustify Caption = 'Birth Time:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 16 Top = 88 Width = 72 Height = 13 Alignment = taRightJustify Caption = 'Birth Height:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 181 Top = 88 Width = 75 Height = 13 Alignment = taRightJustify Caption = 'Birth Weight:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 11 Top = 128 Width = 117 Height = 13 Alignment = taRightJustify Caption = 'Attending Physician:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 77 Top = 160 Width = 51 Height = 13 Alignment = taRightJustify Caption = 'Hospital:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 102 Top = 192 Width = 26 Height = 13 Alignment = taRightJustify Caption = 'City:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 301 Top = 192 Width = 35 Height = 13 Alignment = taRightJustify Caption = 'State:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 80 Top = 224 Width = 48 Height = 13 Alignment = taRightJustify Caption = 'Country:' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 134 Top = 48 Width = 6 Height = 19 Caption = ':' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 130 Top = 88 Width = 38 Height = 13 Alignment = taRightJustify Caption = 'inches' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 292 Top = 87 Width = 17 Height = 13 Alignment = taRightJustify Caption = 'lbs' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TLabel Left = 354 Top = 88 Width = 14 Height = 13 Alignment = taRightJustify Caption = 'oz' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BirthDay: TComboBox Left = 96 Top = 16 Width = 113 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Sunday' 'Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday' 'Sunday') ParentFont = False TabOrder = 0 Text = 'Monday' end object BDateMonth: TEdit Left = 224 Top = 16 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object BDateDay: TEdit Left = 272 Top = 16 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object BDateYear: TEdit Left = 320 Top = 16 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object BTimeHr: TEdit Left = 96 Top = 48 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object BTimeMin: TEdit Left = 144 Top = 48 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object AmPm: TComboBox Left = 184 Top = 48 Width = 49 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'a.m.' 'p.m.') ParentFont = False TabOrder = 6 Text = 'a.m.' end object Height: TEdit Left = 96 Top = 80 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 end object WeightLb: TEdit Left = 256 Top = 80 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 8 end object WeightOz: TEdit Left = 320 Top = 80 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 9 end object Physician: TEdit Left = 136 Top = 120 Width = 233 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 10 end object Hospital: TEdit Left = 136 Top = 152 Width = 233 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 11 end object Country: TEdit Left = 136 Top = 216 Width = 233 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 12 end object City: TEdit Left = 136 Top = 184 Width = 153 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 13 end object State: TEdit Left = 336 Top = 184 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 14 end end object BirthdayDB: TDBEdit Left = 392 Top = 8 Width = 25 Height = 24 DataField = 'BirthDay' DataSource = ChildData MaxLength = 0 TabOrder = 1 Visible = False end object HeightDB: TDBEdit Left = 416 Top = 8 Width = 25 Height = 24 DataField = 'BirthHt' DataSource = ChildData MaxLength = 0 TabOrder = 2 Visible = False end object WeightLbDB: TDBEdit Left = 440 Top = 8 Width = 25 Height = 24 DataField = 'BirthWeightLb' DataSource = ChildData MaxLength = 0 TabOrder = 3 Visible = False end object PhysicianDB: TDBEdit Left = 464 Top = 8 Width = 25 Height = 24 DataField = 'Physician' DataSource = ChildData MaxLength = 0 TabOrder = 4 Visible = False end object HospitalDB: TDBEdit Left = 392 Top = 32 Width = 25 Height = 24 DataField = 'Hospital' DataSource = ChildData MaxLength = 0 TabOrder = 5 Visible = False end object CityDB: TDBEdit Left = 416 Top = 32 Width = 25 Height = 24 DataField = 'BirthCity' DataSource = ChildData MaxLength = 0 TabOrder = 6 Visible = False end object StateDB: TDBEdit Left = 440 Top = 32 Width = 25 Height = 24 DataField = 'BirthState' DataSource = ChildData MaxLength = 0 TabOrder = 7 Visible = False end object CountryDB: TDBEdit Left = 464 Top = 32 Width = 25 Height = 24 DataField = 'BirthCountry' DataSource = ChildData MaxLength = 0 TabOrder = 8 Visible = False end object BDayDB: TDBEdit Left = 392 Top = 88 Width = 25 Height = 24 DataField = 'BDateDay' DataSource = ChildData MaxLength = 0 TabOrder = 9 Visible = False end object BTimeAmPmDB: TDBEdit Left = 440 Top = 112 Width = 25 Height = 24 DataField = 'BTimeAmPm' DataSource = ChildData MaxLength = 0 TabOrder = 10 Visible = False end object BTimeMinDB: TDBEdit Left = 416 Top = 112 Width = 25 Height = 24 DataField = 'BTimeMin' DataSource = ChildData MaxLength = 0 TabOrder = 11 Visible = False end object BTimeHrDB: TDBEdit Left = 392 Top = 112 Width = 25 Height = 24 DataField = 'BTimeHr' DataSource = ChildData MaxLength = 0 TabOrder = 12 Visible = False end object BYearDB: TDBEdit Left = 440 Top = 88 Width = 25 Height = 24 DataField = 'BDayYear' DataSource = ChildData MaxLength = 0 TabOrder = 13 Visible = False end object BMonthDB: TDBEdit Left = 416 Top = 88 Width = 25 Height = 24 DataField = 'BDayMonth' DataSource = ChildData MaxLength = 0 TabOrder = 14 Visible = False end object WeightOzDB: TDBEdit Left = 392 Top = 56 Width = 25 Height = 24 DataField = 'BirthWeightOz' DataSource = ChildData MaxLength = 0 TabOrder = 15 Visible = False end object BitBtn1: TBitBtn Left = 464 Top = 240 Width = 25 Height = 27 Caption = ' ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 16 OnClick = BitBtn1Click Kind = bkHelp Margin = 2 Spacing = -1 end end object TTabPage Left = 4 Top = 27 Caption = 'First Home' object Image2: TImage Left = 80 Top = 152 Width = 209 Height = 113 Picture.Data = {} end object Bevel2: TBevel Left = 80 Top = 152 Width = 209 Height = 113 end object Label7: TLabel Left = 8 Top = 288 Width = 281 Height = 27 AutoSize = False Caption = 'Child Information' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object GroupBox3: TGroupBox Left = 8 Top = 8 Width = 409 Height = 137 Caption = 'Your Child'#39's First Home' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Label12: TLabel Left = 32 Top = 32 Width = 54 Height = 16 Alignment = taRightJustify Caption = 'Address:' end object Label13: TLabel Left = 58 Top = 64 Width = 28 Height = 16 Alignment = taRightJustify Caption = 'City:' end object Label14: TLabel Left = 38 Top = 96 Width = 48 Height = 16 Alignment = taRightJustify Caption = 'County:' end object Label15: TLabel Left = 313 Top = 96 Width = 37 Height = 16 Alignment = taRightJustify Caption = 'State:' end object Address: TEdit Left = 96 Top = 24 Width = 289 Height = 24 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object AddCity: TEdit Left = 96 Top = 56 Width = 289 Height = 24 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object AddCounty: TEdit Left = 96 Top = 88 Width = 209 Height = 24 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object AddState: TEdit Left = 352 Top = 88 Width = 33 Height = 24 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end end object AddressDB: TDBEdit Left = 424 Top = 32 Width = 17 Height = 24 DataField = 'Address' DataSource = ChildData MaxLength = 0 TabOrder = 1 Visible = False end object AddCityDB: TDBEdit Left = 424 Top = 64 Width = 17 Height = 24 DataField = 'City' DataSource = ChildData MaxLength = 0 TabOrder = 2 Visible = False end object AddStateDB: TDBEdit Left = 424 Top = 96 Width = 17 Height = 24 DataField = 'State' DataSource = ChildData MaxLength = 0 TabOrder = 3 Visible = False end object AddCountyDB: TDBEdit Left = 456 Top = 96 Width = 17 Height = 24 DataField = 'County' DataSource = ChildData MaxLength = 0 TabOrder = 4 Visible = False end object BitBtn2: TBitBtn Left = 464 Top = 240 Width = 25 Height = 27 Caption = ' ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = BitBtn2Click Kind = bkHelp Margin = 2 Spacing = -1 end end object TTabPage Left = 4 Top = 27 Caption = 'Headlines' object Label8: TLabel Left = 8 Top = 288 Width = 281 Height = 27 AutoSize = False Caption = 'Child Information' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label16: TLabel Left = 8 Top = 8 Width = 12 Height = 24 Caption = '1' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label17: TLabel Left = 8 Top = 40 Width = 12 Height = 24 Caption = '2' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label18: TLabel Left = 8 Top = 72 Width = 12 Height = 24 Caption = '3' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label19: TLabel Left = 8 Top = 104 Width = 12 Height = 24 Caption = '4' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 8 Top = 136 Width = 12 Height = 24 Caption = '5' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label21: TLabel Left = 8 Top = 168 Width = 12 Height = 24 Caption = '6' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label22: TLabel Left = 8 Top = 200 Width = 12 Height = 24 Caption = '7' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object H1: TEdit Left = 32 Top = 8 Width = 441 Height = 27 Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object H2: TEdit Left = 32 Top = 40 Width = 441 Height = 27 Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object H3: TEdit Left = 32 Top = 72 Width = 441 Height = 27 Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object H4: TEdit Left = 32 Top = 104 Width = 441 Height = 27 Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object H5: TEdit Left = 32 Top = 136 Width = 441 Height = 27 Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 end object H6: TEdit Left = 32 Top = 168 Width = 441 Height = 27 Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object H7: TEdit Left = 32 Top = 200 Width = 441 Height = 27 Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 6 end object H1DB: TDBEdit Left = 472 Top = 8 Width = 17 Height = 24 DataField = 'H1' DataSource = ChildData MaxLength = 0 TabOrder = 7 Visible = False end object H2DB: TDBEdit Left = 470 Top = 40 Width = 17 Height = 24 DataField = 'H2' DataSource = ChildData MaxLength = 0 TabOrder = 8 Visible = False end object H3DB: TDBEdit Left = 470 Top = 72 Width = 17 Height = 24 DataField = 'H3' DataSource = ChildData MaxLength = 0 TabOrder = 9 Visible = False end object H4DB: TDBEdit Left = 470 Top = 104 Width = 17 Height = 24 DataField = 'H4' DataSource = ChildData MaxLength = 0 TabOrder = 10 Visible = False end object H5DB: TDBEdit Left = 470 Top = 136 Width = 17 Height = 24 DataField = 'H5' DataSource = ChildData MaxLength = 0 TabOrder = 11 Visible = False end object H6DB: TDBEdit Left = 470 Top = 168 Width = 17 Height = 24 DataField = 'H6' DataSource = ChildData MaxLength = 0 TabOrder = 12 Visible = False end object H7DB: TDBEdit Left = 470 Top = 200 Width = 17 Height = 24 DataField = 'H7' DataSource = ChildData MaxLength = 0 TabOrder = 13 Visible = False end object BitBtn3: TBitBtn Left = 464 Top = 240 Width = 25 Height = 27 Caption = ' ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 14 OnClick = BitBtn3Click Kind = bkHelp Margin = 2 Spacing = -1 end end end object OKBtn: TBitBtn Left = 304 Top = 314 Width = 93 Height = 27 Caption = 'Ok' Default = True Font.Color = clGreen Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 1 OnClick = OKBtnClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000D80E00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555205555555555555222055555555555522205555 5555555222220555555555222222055555555722052220555555720555522055 5555555555522205555555555555220555555555555552205555555555555572 0555555555555557205555555555555552205555555555555555} Margin = 8 Spacing = -1 end object CancelBtn: TBitBtn Left = 400 Top = 314 Width = 93 Height = 27 Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = CancelBtnClick Kind = bkCancel Margin = 2 Spacing = -1 end object ChildTable: TTable DatabaseName = 'PCBaby4' TableName = 'CHILD.DB' Left = 224 Top = 304 object ChildTableFirstName: TStringField FieldName = 'FirstName' Size = 50 end object ChildTableMiddleName: TStringField FieldName = 'MiddleName' Size = 50 end object ChildTableLastName: TStringField FieldName = 'LastName' Size = 50 end object ChildTableBDateDay: TStringField FieldName = 'BDateDay' Size = 5 end object ChildTableBirthDay: TStringField FieldName = 'BirthDay' Size = 15 end object ChildTableBirthHt: TStringField FieldName = 'BirthHt' Size = 4 end object ChildTablePhysician: TStringField FieldName = 'Physician' Size = 50 end object ChildTablePediatrician: TStringField FieldName = 'Pediatrician' Size = 50 end object ChildTableHospital: TStringField FieldName = 'Hospital' Size = 50 end object ChildTableBirthCity: TStringField FieldName = 'BirthCity' Size = 50 end object ChildTableBirthState: TStringField FieldName = 'BirthState' Size = 2 end object ChildTableBirthCountry: TStringField FieldName = 'BirthCountry' Size = 50 end object ChildTableH1: TStringField FieldName = 'H1' Size = 155 end object ChildTableH2: TStringField FieldName = 'H2' Size = 155 end object ChildTableH3: TStringField FieldName = 'H3' Size = 155 end object ChildTableH4: TStringField FieldName = 'H4' Size = 155 end object ChildTableH5: TStringField FieldName = 'H5' Size = 155 end object ChildTableH6: TStringField FieldName = 'H6' Size = 155 end object ChildTableH7: TStringField FieldName = 'H7' Size = 155 end object ChildTableHair: TStringField FieldName = 'Hair' Size = 25 end object ChildTableEyes: TStringField FieldName = 'Eyes' Size = 25 end object ChildTableBDayMonth: TStringField FieldName = 'BDayMonth' Size = 5 end object ChildTableBDayYear: TStringField FieldName = 'BDayYear' Size = 10 end object ChildTableBTimeHr: TStringField FieldName = 'BTimeHr' Size = 5 end object ChildTableBTimeMin: TStringField FieldName = 'BTimeMin' Size = 5 end object ChildTableBTimeAmPm: TStringField FieldName = 'BTimeAmPm' Size = 5 end object ChildTableAddress: TStringField FieldName = 'Address' Size = 50 end object ChildTableCity: TStringField FieldName = 'City' Size = 50 end object ChildTableState: TStringField FieldName = 'State' end object ChildTableCounty: TStringField FieldName = 'County' Size = 50 end object ChildTableBirthWeightOz: TStringField FieldName = 'BirthWeightOz' Size = 3 end object ChildTableBirthWeightLb: TStringField FieldName = 'BirthWeightLb' Size = 2 end end object ChildData: TDataSource DataSet = ChildTable Left = 256 Top = 304 end end